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Gar eyes. cy TPOn Jano ter 1esue the Tuntver Valley V4. Journal 
Wi “te Opies hed, Bashontiiy Tor the torseeable future... “nis 
Wilf bring us in line with other V2 Publications and also give us 
wore Lame to produce a better quality Journal. 


rd: Gk te Ww eR Ne, PUBLICATIONS. «= Page 
Die (oe. Ot Ver User troupes and, Pubircavions 35 
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SNOOPRY CALENDAR PART 2 by Dave Boyce :- Pages 45 
Live «POM wae listing of Snoopy Calendar. The lines of 
hashes are Simply a guide to help you when you are typing in. 


PRINTERS? cil OLULLON by Dave Boyce. == Page 6 
Dave Shows you how to convert Snoopy Calendar for 
Peete Oar Set 
Cai See Ve nN: te TP. a= Pages 5 & 10 
RAM COMMUNICATIONS AREA by David Mitchell (C) Pages 7%-8 
Dave has put ain a lot of time and effort in compiling the 
iist ana a lot of VZ users will appreciate his sharing the result 
af hig iabours. Thanks Dave. There are a few gaps in the list 
arid we would like your help in filling them. 


ROM INVERSE CHARACTER SET by Bob KITCH (C0) Pages 9-10 
Bob so article explains in his usual thorough way how inverse 

Chapacters are stored in KOM an why they wont print out on most 

HO. Getta ane ee A&A screen dump is shown at end of listing. 


«* 


- 


ae Vovaat Vee = TITY CRE TW Pages 11il-12 

The next best thing to a disk drive when you don’t have a 
disk drive or how to live without one when you can’t afford one 
bet. -cione two or three. 


Ulitao ae woo serie aor: | (AeGUs t= Page 13 

FILESBARCH 1s a utility that can be used both by tape or disk 
Grave lee: It gives quite a lot of information on your 
PrORT AMS . Tha. aS Garry S: first COnutribuiaon to our Journal and 
Wwe Weicome tim aboard. 


CONVERT ie. Gb Lied ok WIN GD, Uo. a= Page 14 
D.Gmitea ham available quite a few Technical Bulletins for the 
Mes Dk ee iil ais reproduced by kind permission D.Smith 


UOT? ..9O3 ako G 


BEGIHNIR oso She TION. by Leagh kogers: »= Pases: 15-16 
in her easy to follow style Leigh takes you line by line 


Ene oe: ai ay oy eee Hale ok Sipatindic des a eed ae 
(eo GOEL Potas. alae eee op Urey. ct lon ee 


HET: VA BASEO by barry Taylor 1C).2= Pages 17-19 

13 joSue. tas cur OUI Tarset essenbily: fisting. The basic 
VOLPuLon kadai @ppe@ar in next issue and intending assembly learners 
Willi Fine it he : 
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VED Wo ah WORK SBT URE: Oa Fage 20 
ede eeas tag. ee GE 

Two femaie computers were overheard gossiping. (Via their 
SEeevlr Bytes tseers = La.Js “ONS @eked. tie: OTrner, "How did your 
AUG: Y¥ Wit nor ae "terrible", replied the other, "He left his 


woe te. ak. rons" 


Pa TE Etat. ei és ti as rm as ss é ts 


Since our camments last month we had a few NIBBLES. Hare are 
some of the comments. 


Dave Boyce - It is nice to receive a Mag. (sorry Journal) that is 
pages thick. Dave also suggested that we do an annual inder 
together with notes and errata. Thanks for the suggestion Dave, 
we had something Similiar in mind. 


Scott Le Brun —- I’ve been reading the Jan/Feb issue of your 
Journal and IT’S GREAT. Thanks Scott. The RESTORE article, { 
found very useful, as ] sometimes accidentally NEW a program and 
it’s not stored on tape. Take a bow Dave Mitchell. 


With this issue we are introducing a new service to our 
members on a trial basis. Most programs appearing in this 
Journal can be obtained from Hunter Valley VZ Users’ Group simply 
by sending a TAPE or DISK together with return POSTAGE and 
PACKING included. When sending disks make sure you use stiff 
cardboard as support as the postman likes folding disks in halt 
to fit in your letter box. *P’? plates are ideal as support. 
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VZ USER LE’ VZ 200/300 OOP 

MARK HARWOOD Je0ects D7 ALTON 

P.O. BOX 154 39 ACNES STreet 

DURAL 2158 TOOWONG 4066 

N.S.W. QUEENSLAND 

$15.00 PER ANUM $2.00 PER ISSUE (min $4.00) 
VSOFTWAREZ 
Software/Hardware for sale. 

VZ DOWN UNDER MICRO-MAGIC 

C:- GEORGE SEGGIE GORDON BROWELL 

PyeQ. BOX: Bio 13. BROOKES St. 

ST. KILDA 3182 BIGGENDEN 4621 

VICTORIA QUEENSLAND 


Software/Hardware for sale 


NOTE :- When writing to any above or H.V.VZ. Users’ Group for 
information please enclose a S.S.A.E. (Stamped Self Addressed 
Envelope). 


Hi smi Po bers Wey bt Fa NO AA List eS. (>Re tir a Si 
PETER ELEITS «=. c- « «:« PRESIDENT ~« » O49)" 63-5697 
MARK O’BRIEN ... . . VICE PRESIDENT . (049) 61 5490 
ROSS WOODS... . . . SECRETARY . . . . (049) 71 2843 
LEIGH ROGERS .. . . . TREASURER... . (049) S7 5738 
JOR: LEON «. = « # & a #& EDITOR 4 & & =~ £049) S42 796 


MAIL ALL SUBMISSIONS TO :- 
HUNTER VALLEY VZ USERS” GROUP 
C/-~ P.Q. BOX 161 JESHOND 
N.S.W. 2299 


No MATERIAL in this Journal may be reproduced in part or 
whole without the written permission of the Author and or Hunter 
Valley ¥2 Users’ Group. 
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PRIMNMTERYFLOTTER SECTIOM . a “ = Cy 


CHANGING SNOOPY CALENDAR FOR PRINTER/PLOTTER USE by Dave Boyce. 


Now that You have typed in Part 2 of the Calendar we can 
procede. Load in the completed program and follow the 
instructions given below. 


Delete Lines 162, 348, 558 and 820. 

Type in —: SAVE"SNOCALPP" and press RETURN. (¢ DISK SAVE ) 
Type in -: CSAVE"SNOOPY/CAL" and press RETURN. ( TAPE SAVE ) 
Add Lines 70, 80, 160, 285, 595 and 1255 as Listed below. 


Change Lines 90 to 120, 345, 365, 375, 385, 552, 580, 585, 
590, 830 and 1500 as Listed below. 


Also change the TAB(30)’s in Lines 850 to 1350 to TAB(15)’s 
as the example shows below. 


Type in -: GOTO 1500 and press RETURN. ( DISK SAVE ) 
Type in -: GOTO 1600 and press RETURN. ( TAPE SAVE ) 
NOTE i- In case of DISK SAVE use line 1500 and line 1600 for 


TAPE SAVE whenever insructions call for program SAVE. 


7O * FILE — SNOCALPP 

BO > ## SNOOPY CALENDAR ## 

9O * FOR THE PRINTER/PLOTTER ONLY 

100 #H LINE 160 WILL SET YOUR PRINTER/PLOTTER 


110 HHH RUN LINE 595 TO RETURN TO TEXT MODE 
120 IF LEAVING PROGRAM PREMATURELY 

i160 LPRINTCHR$(18):LPRINT"SO":LPRINTCHRS(17) 
285 LPRINT 

345 LPRINT:LPRINT:LPRINT 

365 LPRINTBS 

375 LPRINT:LPRINT 

385 LPRINT:LPRINTAS 

S52 GOSUBS30:* SOOPY PRINTOUT 

380 CLS: INPUT"ANOTHER YEAR ";YYS: 1IFYYS="Y"THEN RUN ELSE 595 
985 END 

390 * ### RETURN TO TEXT MODE 

995 LPRINTCHR$(18):LPRINT"S1":LPRINTCHRS(17) 
330 ° SNOOPY PRINTOUT 


105 ° IN THE CORRECT MODE 


345 °° ----5----5—-—--K#HHFEXHHHFRXHHHHEXHHHREXHHHHEXHHHHRXHHHRHXHHX 
850 LPRINTTAB(15)35" XXXX " 

‘360 LPRINTTABC 15S); " X KX" 

1255 °--~--5-—---5—-—-—-X#HHHHXHHHHEXHRHEEXAHHHRH XHHHERAXHHHEHXRRHHE XH X 
1400 

1450 


1500 ERA"SNOCALPP":SAVE"SNOCALPP":DIR:’ THIS LINE FOR DISK ONLY 
[550° * 
1560 : 
1600 CSAVE"SNOOPY/CAL":’°> TAPE USERS USE THIS LINE TO SAVE PROGRAH 


KAM COMMUN IrCATION ADDRESSES = 


30720- 
30723- 
30726- 
30729- 
30732- 
30735- 
30738- 


30741 


30742- 


30744 
30745 
30746 


30747- 


30749 


30750- 
30752- 


30754 


30755- 


30757 


30758- 


30760 
30761 
30762 


30763- 


Ey" 


30720 -— 30740 


30749 - 30756 


2 7800-2 

5 7803-5 

8 7806-8 

31 7809-B 

4 780C-E 

7 @TB0F-11 

40 7812-4 

30741 - 30748 

7815 

3 7816 
7818 
7819 
TB1A 

8 781B-C 
78 1D 

1 781E-F 

3 7820-1 
7822 

6 7823-4 

30757 - 30764 

7825 

9 7826-7 
7828 
7829 
TB2A 

4 782B-C 


30765 - 31058 


ee ie 


7800 - 7814 RST JUMP VECTORS 


RST 8 JP 1C96 

RST 10 JP 1D78 (DOS 4293) 
RST 18 JP 1C90 

RST 20 JP 25D9 

RST 28 SET TO RETURN 

RST 30 SET TO RETURN 

RST 38 SET TO EI, RETURN 


7815 - 781C KEYBOARD D.B.C. 


DEVICE 
DRIVER 


TYPE 
ADDRESS 
INVERSE SCREEN 
INVERSE TYPING 
? 


RAM BUFFER ADDRESS 


781D - 7824 VIDEO D.B.C. 
DEVICE TYPE 

DRIVER ADDRESS 

CURSOR POSITION 

? 

CHECKSUM DURING TAPE LOAD 


7825 - 782C PRINTER D.B.C. 


DEVICE TYPE 

DRIVER ADDRESS 

LINES PER PAGE 

LINES PRINTED SO FAR 
oP) 


RAM BUFFER ADDRESS 


782D - 7952 COMMUNICATION REGION 


30765-73 782D-35 USED BY TRS-80 DOS 


? 

INVERSE MESSAGE 

DISABLE UP,DOWN KEYS:LOW RES SPEED UP. 
? 

COPY OF O/P LATCH 

oO 


VIDEO CONTROL WORD 


INTERRUPT 

DIVISION SUPPORT ROUTINE 

USR POINTER 

RND NUMBER SEED 30867-9 7893-5 
OUT (XX) © 

LAST KEY PRESSED 

ERROR CODE STORAGE 
PRINTER CARRIAGE POSITION 
OUTPUT DEVICE CODE 

SIZE OF VIDEO LINE 

HIGH OR LOW RES 30879 
BASIC STACK ADDRESS 

BASIC LINE NUMBER 

START OF PROGRAM 


INP (XX) 


789F e 


30774-5 7836-7 
30776 7838 
30777 7839 
30778 783A 
30779 783B 
30780 783C 
3078 1 78B3D 
30782-8844 783E-7C ° 
30845-7 T87D-F 
30848-61 7880-D 
30862-3 788E-F 
30864-6 7890-2 
30870-2 7896-8 
30873 7899 
30874 789A 
30875 789B 
30876 78B9C 
30877 789D 
30878 7T89E 
30880-1 78A0-1 
30882-3 T78A2-3 
30884-5 78A4-5 
30886 78AS 


TAB CURSOR POSITION 


AM COMPriin TOATION ADDRES. CoM EL os 3 


30887-8 78A7-8 KEYBOARD BUFFER ADDRESS 
30889 78A9 ? 
30890-3 78AA-D RANDOM NUMBER SEED 
30894 T8AE VARIABLE FLAG 
30895 TSAF NUMBER FLAG (INTEGER,STRING,SINGLE, DOUBLE) 
30896 78BO EXPRESSION EVALUATION 
30897-8 78Bi-2 TOP OF MEMORY 
30899-3900 78B3-4 NEXT LOCATION IN LITERAL STRING POOL 
30901-2 78B5-6 START OF LITERAL STRING POOL 
30903-45 78B7-E1 ? 
30946-7 78E2-3 CURRENT LINE NUMBER 
30948-9 78E4-5 AUTO INCREMENT 
30950-1 78E6-7 LAST BYTE EXECUTED IN CURRENT LINE 
30952-3 78E8-9 BACKSPACED STACK ADDRESS 
30954-5 T78EA-B ERROR LINE NUMBER 
30956-7 78EC-D ERROR LINE NUMBER 
30958-9 T78EE-F CURSOR POSITION IN LINE WITH ERROR 
30960-1 78FO-1 ADDRESS OF STATEMENT TO RESUME AT 
30962 78F2 ERROR MESSAGE OVERRIDE 
30963-4 78F3-4 ? 
30965-6 78F5-6 LINE NUMBER ENDED ON 
30967-8 78F7-8 LAST STATMENT BYTE SCANNED 
30969-70 78FS9-A END OF PROGRAM 
30971-2 78FB-C START OF DIM VARIABLES TABLE 
30973-4 T78FD-E START OF FREE MEMORY 
30975-6 78FF-900 DATA POINTER (READ STATEMENT ) 
30977-1002 7901-1A VARIABLE DECLARATION TABLE 
31003 T7O1B TRACE FLAG 
31004 T3I1C MATH ROUTINES 
31005 —- 31012 791D - 7924 regester 1 
INTEGER SINGLE DOUBLE 
31005 791D LSB 
31006 T91E LSB 
31007 T91F LSB 
31008 7920 LSB 
31009 7921 LSB LSB LSB 
31010 T7922 HSB LSB LSB 
31011 7923 MSB MSB 
31012 7924 EXP EXP 
31013-4 7925-6 MATH ROUTINES 
31015-22 7927-E REG 2 SAME AS REG 1 
31023 792F 


31024-49 7930-49 PRINTER BUFFER 

31050-7 794A-51 DOUBLE PRECISSION MATH 
31058 -—- 31141 
31141 - 31204 79A6 - 79E4 TRS-8O0 DOS LINKS 
31205-7 T79E5-7 USED BY INPUT 

31208-72 79E8-7A28 BASIC LINE INPUT BUFFER 
31273 - 31388 7A29 - 7ASC ° 

31389 - 31404 
31405 - 31446 7AAD - VAD6 ? 

31447 - 31462 7AD7 - 7AE6 TAPE LOAD ROUTINE 


31463-4 


31465 
36864 
45184 
93348 
63488 
65535 


TAET-8 


TAES 
9000 
BS800 
DOOO 
F800 
FFFF 


TAQD - 7AAC 


7952 - 79A5 TRS-80 DOS RESERVED WORDS 


TAPE NAME 


ZERO 


START OF USER MEMORY 

TOP OF MEMORY VZ~-200 (6K) 

TOP OF MEMORY VZ-300 (16K) 

TOP OF MEMORY VZ-200 (16K) 

TOP OF MEMORY VZ-300 (16K+16K) 
THE VERY TOP 


Fi 1 INVERSE CHARACTER SET - ~ = = 


BY EOE FITCH «{- } Corre Torey 


10 
20 
30 
40 


630 


650 
660 
700 
710 
720 
730 
FAO 
750 
B00 
810 
820 
830 


‘ft 


« sd - =< 


OOOO ICO KOKORO OK AC AOR KOK KK 
KOK OK DISPLAY INVERSE CHARACTER OKK 


KOK SET IN ROM KOK 
KKK AS USED BY DOT MATRIX KOK 
oh KK PRINTER KK OK 
KK R. B. KITCH 27/9/86 KKK 


FOCI ICICI ORI OR ROKK A 


‘WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER 
*THE PRINTER SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE 
>TO SUPPLY THE APPROPRIATE SHAPES TO THE HEAD. (NORMAL 
*CHARACTERS ARE HELD IN THE PRINTERS ROM) 

"IN THE VZ COMPUTER A TABLE OF SHAPES IS LOCATED AT 

'3B94H TO 3CD3 IN ROM. THERE ARE 64 CHARACTERS, EACH USING 
°S BYTES TO DEFINE THEIR GRAPHIC SHAPE. THE SHAPES MAY BE 
*DECODED AND OUTPUT TO THE SCREEN AS IS DONE IN THIS 
*PROGRAM. NOTE THAT THERE ARE SOME ERRORS IN THE ROM. 

“THE S BYTES DEFINE A 5 BY 8 DOT MATRIX WHICH IS THE SHAPE 
'OF THE CHARACTER, WHICH INCIDENTLY ARE NOT ORDEKED 
*ACCORDING TO THE ASCII CODE. 

‘THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTEK— 
*WHICH IS THE FIRST PRINTED DURING A PASS OF THE PRINTER 
oHEAD. IN TANDY PRINTERS THE MSB 1S THE LOWERMOST PIN CF THE 
"HEAD AND THE LSB IS THE UPPERMOST PIN. THE PINS ON EPSON 
*PRINTER HEADS ARE ARRANGED IN THE OPPOSITE SENSE. THIS 
"REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 

OOOO COOK CICOOIIOCICICIEIOI”IIOIO IOC AC ARO AA 


’ 


DIM MK%(7) :°*XXVECTOR OF BIT MASK VALUES - POWERS OF « 
DIM BT%(7) :’*xkVECTOR OF DECODED BITS FROM ROM VALUE. 


>4keFILL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 
FOR 1%=0 TO 7 :MK%(1I%)=27°1% :NEXT 1% 


>*skKINITIALIZE PARAMETERS - MAY BE CHANGED TO VARY SCEEEN. 


CC%=4 > > *KKKCHARACTER COLOUR. (i-4) 

BC%=2 : > **X*BACKGROUND COLOUR. (1-4) 

CS%=0 [°F ACOLOUR SET. <0O=2) 

CWA%=3 :?>*xxCOLUMN WIDTH BETWEEN CHARACTERS. 

SP%=16 >?>*kKROW SPACING FOR CHARACTERS. 

HS%=0 >> *kKKSTARTING HORIZONTAL POSITION ON HI-RES SCREEN. 

VP%=3 >> *k*STARTING VERTICAL POSITION ON HI-RES SCREEN. 

HM%=127 :?*kMAXIMUM HORIZONTAL POSITION. (0-127) 

>*KKSET UP MAIN LOOP TO STEP THROUGH ROM FROM SBS4H-3CUD3. 

BK%=0 >> *KKBYTE COUNTER FOR EACH CHARACTER. 

HF“*%=HS% > *KKSET HORIZONTAL POSITION TO START 

MODE(1i) :COLOR,CS% > **KKKSET HI-RES SCREEN AND COLOR SET. 

FOR AD%=15252 TO 15571 :’***ROM ADDRESSES FOR SHAPE TABLE. 
DV%=PEEK(AD%) >> *KKDECIMAL VALUE IN KOK. 


9 


"xs*XDECODE THE INDIVIDUAL BITS OF DV% AND STORE IN BTAt), 
‘4OkKTHE MASK VALUES IN MK%() ARE "ANDED" WITH THE VALUE. 
‘x*k*eTHE RESULT STORED IN BT%() IS THE "COLOUR" OF THE Bits 
POR: kaa: 0: TO.7 >> *KKPROCEED FROM LSB TO MsB. 
IF DV% AND MK%(1I%) THEN BTX(1%)=BC% ELSE BTAC1A)=CCx% 
NEXT 1% 


4 


-*s*k*kCHECK THAT THERE IS ENOUGH ROOM TO PLOT CHAEKACTER. 
IF BK%=0 AND HM%-HP%<4 THEN HP%=H5% :VP%=VPM+SP%:  +NEW ROW 
BKEX=BKA+ 1 > *KKINCREMENT BYTE COUNTER. 


OM INVERSE CHAFF. Se FTF CONT . on 4.0) 


840 ° 
900 *x*xXxXOUTPUT BYTE TO SCREEN. 
910 FOR I[%=0 TO 7 


320 COLOR BT%(1%) >’ XKKXSET COLOUR OF BIT. 

930 SET(CHP%, VP%+1%) >*XKKXPLOT BIT. 

940 NEXT 1% 

950 ° 

1000 *XXXPREPARE FOR NEXT BYTE. 

1010 HP*%=HP%+ 1 >> KKKINCREMENT HORIZONTAL POSITION. 
1020 IF BK%=5 THEN BK%=O0 :HPX%=HP%+CW% > "XKKNEW CHARACTER. 


1030 NEXT AD% 
2000 GOTO 2000 :END 
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Disk DRIVE HINTS AND TIFFS = = - = 


Most Dos commands can be used from within a program, but the 
DOS manual fails to inform you of the correct syntax. EG :- 


100 IFAS="D"THENDIR > This will not work although it’s correct 
for BASIC, but not for the DOS. 

100 IFAS="D"THEN: DIR > A colon (:) must be added between THEN 
and DIR for it to work. The same goes for most other DOS 


commands. 


BREAK :- Although there’s a BREAK function for basic the DOS 
Manual again fails to inform you of the DOS version. It could’nt 
be simpler. Just use the BREAK (-) MINUS key by itself without 
CTRL key. It will get you out of some problems but not all. 


Anyone with any hints for the disk drive please let us knew 
SO we can share with other users. 


Pete) Fife is ba oe Pes lad SES ORES - a = 
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Disk Drive ouners, the Magic VZ is nat far you, but tape 
owners rejoice as you can do Magic with your VZ. And how ta 
accomplish this Magic ? Simple, US. Install) 2. Maric boron: an 
your V4Z00/S00 and away you go. The Magic Eprom is a 4K Eprom 
that iS Written for the range 4000-4FFF HEX. [t Contains. the 
following three utilities which are available seperately on tape. 
1) EBL. =:.2) BDRS = 6). ART o> 


EBI -= EXTENDED BASIC: ==— 

All 45 missing TRS-30 Level 2 Keywords are translated into 
their Tokens and are 1listable any time. This gives you 1% 
additional commands/(functions and all the disk command exits 
Which are very handy to link any M/L programs. Note that basic 
programs Written With EBL will run on any other VZ even if 
commands/functions trom the list below are used. 


ADDITIONAL COMMANDS/FUNCTIONS :- 

POS, FRE(XS), "MEM, “ERR: ERG, -FIM, ‘CDEL; “CSNG, -CINT, JON, 
AUTO, DEFINT, DEFSNG, DEFDBL, DELETE. RANDOM, VAKFTE, 
STRINGS, RESUME. 


DISK COMMANDS/FUNCTIONS :- 

Or, LOC, BOs CVD, Ve 5 CVI, “DEP, PUT; GET, -MnhDa. 
MKS$, MAIS, TIMES, CMD, PN;  LbSET,  ®8SskT, -OFEN, ‘CLOSE, 
LOAD; -SAVE, KILL, NAME, MERGE, FIELD, NST ER: 


Information is given on how to realise UN ERROR, TRON, 
TROFF and DEFSTR. 


MDRS3 - MERGE/DELETE/RENUMBER :- 

The merge routine Will merge any number of basic programs u 
to memory capacity. The only rule is that the program you wish ¢ 
merge must have it’s first line number higher than the last line 
of program in memory. 


' 


Ch tr 


REN “Ns Go OF “REN. 2 yay 
This iS a particulary usefull RENUMBER routine. YOU: wan 
renumber whole or part of your program With choice of incr=ment. 


DELETE X/X-Y,-X :- The specified Line(s) are deleted. 


AR1 —- ARRAY-UTILITY/RESTOKE N :- 

This powerfull utility can dump 800 records of lo Characters 
in less than 4 minutes onto tape. With this ARKAY Utility you 
can SAVE or LOAD whole ARRAYS at the tape speed ct 600 baud, 
regardless otf the lenght or the number of dimensions. RESTORE it 
enables you to move the DATA pointer for the FREAD command tu the 
first element of any DATA line in your progran. LipoOr tai. Tne 
array utility will only work if the basic program was written by 
an extended basic which accepts the disk commands LOAD, SAVE, 
KILL and NAME. 


IMPORTANT NOTE :- 

EB ‘Gan be loaded with either MDRS or ARI. They can be 
loaded any time Without destroying a BASIC progran. 
EBI, MDR3, AR1 and MAGIC EPROM are available from :- 


W.Obrist EBL, MDR3 and AR! are $15.00 each. 
50 Cobham Ave. MAGIC EPROM is $45.00. 
West Ryde They are last year’s prices so check. 


Nios Wes zil4 State RAM size. BG. se Oh, 2A Ny BiG 


—r— 2 xs pO 7. ¥. STIR Oo ogh ee a: a 38 fi a le : = 1, 
< pore i a #74 _ a Ie, ae Tag ee —. 3 rs i = = -_ fad on ro mat L Oa. 


MieG Lis Be Re = This Eprom contains all three utilities 
eet 1 bed Plievarous ly “BEI. MDRS and ARI. When correctly 
ingtatioud «14 Ppornters are changed during power up resulting in a 
Very wane ria We, The beauty of the Magic Eprom is that it 


works With any memory size and all commands and functions are 
Att ale At: POWwer Mas 


thee Eprom ws: -avaa lable as 2582 or 2732, and. dont forget to 
MethiaoT Bc | oleae, To make your choice easier pinouts and 
connecting circuit diagrams are shown. I pigey backed mine on a 
2o64 BK-RKROM inside the VZ2Z00. Some VZ200’s and VZ300’s have 16K 
ROMS and their pinouts are also shown. 


Both the 2592 and 2732 Eproms will fit nicely on the 2364 Rom 
im. VaZ200- Astericks are shown which pins to bend up when 
Pigay-backing on 2364 V2 Rom. On the 25922 two pins must be bent 
up While on 27322 three are bent up and connected to the 
APPIMOpPYDicte: .oretiadls. Instead of soldering the Eprom directly to 
the kom a socket can be used. If piggy-backing on the 16K Rom 
then the 2/7/S2 would be a better choice as only pins 18 and 24 
need bending up. study the circuits carefully before proceeding 
eircl Take aba Pe. 
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FILESEARCH 2.0 (C) 1987 
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FILESEARCH is a utility program, consisting of two 
independent modules TAPESEARCH and DISKSEARCH, which 
provides useful information about programs stored on tape or 
disk. Although the data appears on the screen, selection of 
the printer option enables a printout to be obtained. 


The initial letter identifies the type of program: 


T: Basic Program 

B: Machine Code Program 

D: Data Files 

Ws Editor Assembler Source Code 


TAPESEARCH reads the leader of programs and files stored 
on tape and prints the information in this form: 


T:NAME OF PROGRAM 7AE9 BEA4 13BB 


Following the program type and name, the start and end 
addresses and the length of the program will be printed, in 
hex. Only Data Files do not have a start and end address. 


TAPESEARCH will also identify Data Files Saved using the 
DeSe Es Word Processor, which cannot be identified during 
normal tape operations. When the printer option is selected 
only Data Files which have a name are output to the printer 
although all files found are printed on the screen. 


DISKSEARCH reads the disk directory, and prints the data 
in this form: 


TsFILENAME OA 04 7AE9 BEA4 13BB 


Following the filetype and filename the track and sector 
numbers, indicating where the data is stored on the disk, 
are displayed in hex form. Immediately after this the start 
and end addresses and the length of the program are printed, 
also in hex. 


If the directory contains more than 13 entries, as the 
data is being printed, the screen will scroll. Pressing the 
SPACE bar will hold the displayed data. If the printer. 
option has been chosen, you can select, each time a 
directory is displayed, whether to output the data to the 
printer or not. 


If a disk error occurs during reading, control will 
return to DISKSEARCH. Should the program not return from 
reading a disk, such as if an attempt is made to read an 
unformatted disk, control can be regained by pressing the 
BREAK key alone. 


FILESEARCH can be safely used by non-disk owners asa 
check is made for the presence of the Disk Operating System 
before entering DISKSEARCH. Pressing the CONTROL and BREAK 
keys together, at any time, will enable a return to the 
start of the program. 
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Re RCSF SMITH ELECTRONICS. = 7 - = 
VZ-300 MAILING LIST TAPE TO DISK FILE CONVERSION 


Below are the changes to be done to the B.A.S.1.C. program to 
allow files to be saved on disk instead of tape for (X-7259) 
Mailing List program. 

Once you have LOADed Mailing List BREAK the program and type 
in the lines below pressing (RETURN) after each line. 


1040 PRINT@162,"2. READ DATA FROM DISK"; 
1080 PRINT@290,"6. WRITE DATA TO DISK"; 
59020 PRINT@270, "CWRITE DATA TO DISK]" 
9030 

9040 

9050 

53060 

S070 

9080 

9110 

5120 

S205 ERA"MAILDATA" 

9Z1Q0 OPEN"MAILDATA",1:PR#"MAILDATA", DT 
0230 PRH"MAILDATA", DS(N) 

3240 NEXT: CLOSE"MAILDATA" 

6020 PRINT@79,"C READ DATA FROM DISK 1"; 
6030 

6040 

6050 

6060 

6070 

6080 

6100 OPEN"MAILDATA",O:IN#°MAILDATA", DT: IF DT=OTHEN 6135 
6120 IN#"MAILDATA",DS(N) 

6135 CLOSE"MAILDATA" 

7030 PRINT@199, "CFUNCTION COMPLETE] "; 
7050 SOUND 30,2:RETURN 


Now SAVE"MAILLIST" to disk. Type NEW then press RETURN. 
Type in and RUN program below. 

i0 OPEN"MAILDATA", i 

ZO PRH"MAILDATA",O 

30 CLOSE "MAILDATA" 


The above program has prepared the disk with the MAILLIST 
program to SAVE and READ files. The above program will never be 


used again. 
Now you have finished just RUN"MAILLIST" and the instructions 


are as per old Mailing List program. The only difference is that 
it SAVES and LOADS files a lot faster. 


Compiled by Jamie PERRY 


Reproduced by kind permission of D.Smith’s computer user support. 


ror BeEeGiIinmbeMbRrs*- BY LEI GH ROGGE Foss = 


G'day! My last article, (which was also my first), seems to 
have hit the spot, so I’m back for a sequel ... (¢ Anyone want to 
buy the Movie Rights ? -— Ed. ) 


OK! You’re in for a more complex one this time. This one 
covers a lot and demonstrates a lot of stuff. Like last time the 
program listing is given first, then each line and command is 
explained. 


10 CLS 

20 A=RND( 100) 

30 INPUT "GUESS MY NUMBER (0-100)"3B 
40 IF A>B INPUT "HIGHER";B 

50 IF A<B INPUT "LOWER";B 

60 IF A=B PRINT "THAT’S RIGHT":GOTO 80 
70 GOTO 40 

80 INPUT "TRY AGAIN (Y/N) "3CS3 

90 IF C$="Y" GOTO 10 

100 PRINT "TYPICAL HUMAN! ": END 


This is a simple little game where you can communicate With 
the computer. It will choose a number at random and you have to 
guess what the number is. You will be given clues like "HIGHER" 
or "LOWER". By looking at some of the features of this programme, 

you might be able to see how easy it is to write your own games. 


10 CLS :Clears the screen. 
20 A=RND( 100) 
This is a feature we have not looked at yet. It is a 


function which enables the computer to chose a number at random. 
For this, we just print "RND" and straight after, you state (in 


brackets), the highest number you wish to be chosen. So if you 
were choosing lotto numbers, it would be : RND(40). Get it? In 
line 20, we have labelled our random number "A" by saying that 
"A=RND( 100)". 


30 INPUT "GUESS MY NUMBER (0-100) ";B 


This is another function we have not yet tackled, but don’t 
worry, it is not hard to understand. INPUT means that the 
computer is looking for an input from you. It has told you what 
sort of input it is looking for, by asking you to "GUESS HY 
NUMBER? ". The PRINT and INPUT statements are very similar but 
there is one difference. The PRINT command simply prints a 
message on the screen, whereas the INPUT command both prints a 
message on the screen, and waits for a reaction from the user. 
Your reaction is then labelled with another variable : we have 


labelled the response "B". Don’t forget the semi-colon (33, and 
there is no need to type in question marks on the VZ as it puts 
them up for you the moment it sees an INPUT statement. 


40 IF A>B INPUT "HIGHER";B 


This says exactly that : if the random number (A) is bigger 
than the response (B), then tell the user that it is higher, 
wait for another guess, and replace his or her last response (B) 
With the new response. 


FoF REGINA RS ~-” COM T . a ios - 7 = 14 


30 IF A<B INPUT “LOWER";B 


Again, this is easy to understand : if the random number (A) 
is lower than the response (B), then tell the user that his or 
her guess is too high, wait for another response, and again, 
label it B. 


60 IF A=B PRINT "THAT’S RIGHT":GOTO 80 


This is the third thing that could possibly happen, he or 
she gets it right. It says that if his or her guess equals the 
random number, then print up that he or she is right. I have 
then redirected that part of the programme elsewhere by saying 
"GOTO 80". 


70 GOTO 40 


If you will notice, the majority of the programme will be 
running through lines 40, 50, and 60. Once the computer has 


been through these lines, it would be a very short game if the 
computer were not sent back through them to let you have another 
go... So we say "GOTO 40", (in other words keep asking me, do 


I want another go). 
80 INPUT “TRY AGAIN (Y/N) ";CS 


This is where line 60 sent the computer to. If you have 
guessed right, it asks you, "TRY AGAIN (Y/N)?". Again, it is 
waiting for a response and a simple thing like telling the user 
What sort of response to give, (Y/N) makes it all the easier for 
the user. You will notice that this response has been labelled 
"C$", This is because only numbers can be labelled with a single 
letter variable. If the response is going to be a letter, it 
must have a dollar sign ($) tacked on so the computer can 
distinguish between the two. 


90 IF C$="Y" GOTO 10 


If our response (C$) is "yes" (Y), start again at line 10. 
Notice that the response has been placed in "". This is also 
because it is a letter and not just a simple number. For some 
reason, a computer has no trouble dealing with numbers, (Only 
pecple —- Ed.) but when letters are involved, the matter becomes 


a bit more complex. 
100 PRINT “TYPICAL HUMAN! ": END 


I have put ina bit of cheek here. You must remember, that 
in line 90, there is a condition : "IF C$="Y" GOTO 10". Only if 
C$ is "Y", is that line obeyed. If the response is anything 
else, the computer will ignore the line and continue with the 
rest of the programme. Since it has been told to print upa 
message it will do so, which will probably surprise anybody else 
Who sees it!. After the colon (:), it sees a fresh command 
Which of course, tells it to finish up. 


Anyway, that’s it for this month. It is a long one but it 
Should keep you going. See ya! 
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Enhancing VZ Basic by Larry Taylor 


The Commodore 64 has advanced hardware supported Dy an 
inadequate Basic language, resulting in a number of ennanced 
Basics being available. Something similar could be produced 
for the VZ. It must be noted, however, that all such Basics 
share a common disadvantage. Any program which makes use cof 
them requires the language be loaded before it will function 


properly. 


Because Basic iS an interpreted language additional 
commands can be inserted, if they can be intercepted ard 
executed before reaching the VZ’'s own interpreter. This 1s 
precisely what happens when a disk operating system (DOS) 1s 
added. New commands enabling diSk operations to te 
performed, supplement the existing Basic. However , all 
programs using those extra commands require the DOS to be 
present before execution or they will not be interpreted 
correctly. 


When a Basic program is RUN, control passes to a machine 
language ROM routine, the Execution Driver at 1D5SAH, which 
scans each line of the Basic program as it comes to it and 
begins to translate De Part of the translation process 
involves looking for tokens. These are values in the range 
128-250 (BOH-F AH) that take the place of Basic reserved 
words e.q. CLS = 1352 (84H). Once the word has been 
identified and checked for correct syntax, control 1s 
passed to the corresponding ROM routine before returning to 
continue the transiation. This is Similar to one person 
issuing instructions to another through an interpreter, who 
first has to translate them before the receiver can act, ard 
is the reason for Basic’s slow execution. Most languages get 
around this problem by having the program translated or 
compiled before execution. 


Tandy’s Colour Computer has) an enchanced CLS commard 
which enables the user to clear the screen to any one cf 
nine background colours. The syntax is CLSn, where n may be 
a number in the range O-8. To illustrate how enhancements 
can be accomplished, this command will be added to the Vi'°S 


repertoire. 


On power up the address of the routine which examines 
each byte in a line of Basic, is stored at /804H. Because 
this address is in RAM it can be easily changed. This was 
done so that at a later stage the DOS could be inciudec. 
However , LX also means that, just as readily, an enhanced 
form of Basic may be added. The trick is to ensure that, 45 
far as the VZ'‘s interpreter is concerned, nothing unusual 
has happened. The accompanying assembly language listing 
shows how this can be accomplished. 


be 


ENHANCING VF BAST CO CONT. - so a 


Having adjusted the top of memory pointer, the address 
at 7B04H is stored and replaced by our own. The program then 
locates the new routine at the top of memory. Now each time 
a byte 1S to be examined during execution it must first pass 
through our checkpoint. Once the origin of the call 15 
established, the routine looks for the CLS token, 132 (84H). 
Only when it has been located does the routine proceed to 
examine the next byte. This is checked to see if it lies in 
the range O-9. Once it has passed this test, the clear 
screen routine is implemented after first calculating the 
appropriate value with which to fill the screen. You will 
notice that not only is it necessary to check for the new 
command, but also to provide the routine which implements 
Lt. In this case a simple block load to the screen has been 
used. Control is then returned to the ROM processing 
routine, which prepares to examine the byte following our 
new command. So, as far as the VZ knows, everything 15s 
continuing normally. Tricky isn't it? 


I Nave already successfully used this approach to 
produce a VZ Printer Patch, which enables all the normal 
printer functions for owners of EPSON or EPSON compatible 
printers. The COPY command is intercepted by the patch and 
as a result its function has been enhanced to allow a proper 
dump of both the LO-RES) and HI-RES screens. One further 
enhancement that could be explored would be an extension of 
Basic’s SOUND command. The possibilities are limited only by 
imagination and memory. 


OOO1 3 HHHHHHHHHHHHHHHHHHHHHHHH 
0002 3;# ENHANCED CLS COMMAND # 
0003 ;# BY LARRY TAYLOR 1986 # 
OOO4 s HHHHHHHHHHHHHHHHHHHHHHHE 
0005 ; 

0006 5;THIS SECTION RELOCATES 
O007 3;THE PROGRAM TO THE TOP 
0008 ;OF AVAILABLE MEMORY. 


0009 ; 
0010 VCTR EQU 7A28H >SET VCTR AS 7A28H 
aes = as 3 LOAD STACK POINTER 
ae Rea Patch eee >GET THE TOP OF MEMORY 
‘ ;GET LENGTH OF PROGRAM 

0014 PUSH BC sSAVE PROGRAM LENGTH 
0015 XOR A sRESET ALL FLAGS 
0016 SBC HL,BC STAKE LENGTH FROM TOP OF MEMORY 
ae See aan ie sLOAD NEW TOP OF MEMORY 
6 can sSAVE NEW TOP OF MEMORY 
9020 LD BC, 33H plea oe 
eS a a sRESERVE 50 BYTES STRING SPACE 
ees ee oak sTAKE SPACE FROM TOP OF MEMORY 
ee eee ee ’ sLOAD START OF STRING SPACE 
0024 «INC. DE NINCREASE BY ONE 

5 
sexe «Buea OE] CURRENT SBT 20H VECTOR 

3 
pea 7” a ere ek sLOAD NEW VECTOR 
sete ae iat, ;sGET START OF PROGRAM TO MOVE 
seer es sRETRIEVE PROGRAM LENGTH 
es eae Genet sMOVE TO NEW LOCATION 

;sDO A NEW 


0032 JP LAI9H ; JUMP TO READY MESSAGE 


ENHGNCIENG Ve? BAST CSC COMnMT - = - EC 


0033 ; 

0034 3;START OF THE PROCESSING 

0035 ;ROUTINE FOR NEW COMMAND. 

0036 ; 

0037 NVCT EXX sSAVE ALL REGISTERS 

0038 LD HL, 1DSBH sCHECK TO 

0039 POP DE »-SEE IF THE 

0040 OR A s RETURN 

0041 SBC HL,DE ae 

0042 PUSH DE ©-IS 1DSBH 

0043 EX xX » RESTORE ALL REGISTERS 

0044 JF NZ,1D78H -IF NOT GO TO NORMAL PROCESSING 
0045 PUSH HL *-SAVE STRING ADDRESS 

0046 CALL 1D78H ;GET NEXT VALUE FROM STRING 
0047 JR NZ ,CONT -IF NOT ZERO THEN CONTINUE 
0048 POP POP HL ELSE RESTORE STRING ADDRESS 
0049 LD DE, (VCTR) sRETRIEVE ORIGINAL VECTOR 

0050 PUSH DE » AND JUMP 

0051 RET -7TO IT 

0052 CONT CP 84H *CHECK FOR CLS TOKEN 

00538 JR NZ,POP sIF NOT FOUND RETURN TO CALLER 
0054 INC HL *MOVE TO NEXT VALUE IN STRING 
OOS5 _D A, (HL) -GET NEXT VALUE AFTER CLS TOKEN 
00356 SUB 30H *REDUCE IT TO RANGE O-8 

00357 Jk Zee XeEG -IF ZERO THEN EXECUTE COMMAND 
0058 LD B,8 : LOAD B REG WITH UPPER LIMIT 
0059 CMPR CP B sCHECK IF A=B 

0060 JR Z,EXEC -IF YES THEN EXECUTE COMMAND 
0061 DJINZ CMPR » REDUCE B AND CONTINUE CHECK 
0062 JR POP sNO MATCH SO RETURN TO CALLER 
0063 EXEC POP DE sRETRIEVE OLD STRING ADDRESS 
0064 POP DE sRETRIEVE OLD RETURN ADDRESS 
0065 LD DE,1D1EH sLOAD NEW RETURN ADDRESS 

0066 PUSH DE -SAVE NEW RETURN ADDRESS 

0067 INC HL sMOVE TO NEXT VALUE IN STRING 
0068 PUSH HL -SAVE CURRENT STRING ADDRESS 
0069 ADD A,A » MULTIPLY CLS 

0070 ADD A,A sVALUE BY 16 TO 

0071 ADD A,A sCALCULATE THE 

0072 ADD A,A sCOLOUR OFFSET 

0073 JR NZ,SKIP ;IF RESULT NOT ZERO THEN SKIP 
0074 INC A ;IF ZERO INCREASE TO ONE 

0075 SKIP ADD A,7FH sADD 127 TO GET GRAPHICS BLOCK 
0076 ; 

0077 :CLEAR SCREEN ROUTINE 

0078 ;5 

0079 LD HL, 7OOOH sLOAD START OF SCREEN ADDRESS 
OO80 LD (7820H) ,HL sSET CURSOR POSITION 

0081 LD DE, 7001H sLOAD START OF SCREEN PLUS ONE 
0082 LD BC ,O1FFH » NUMBER OF BYTES TO MOVE 

0083 LD (HL) ,A *LOAD GRAPHICS BLOCK INTO HL 
0084 LDIR >DO A BLOCK FILL OF THE SCREEN 
OO8S POP HL sRETRIEVE STRING ADDRESS 

0086 RET -RETURN TO 1D1EH TO CONT INUE 
OOB7 ENDP DEFB O *-END OF PROGRAM MARKER 
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